with Parts.Operations;
use Parts.Operations;
with Parts;
use Parts;
with Coordinates;
use Coordinates;
with Ada.Strings.Unbounded;
use Ada.Strings.Unbounded;
with Generic_Sorted_List;

-------------------------------------------------
-- Testprogram för parts, coordinates och      --
-- parts.operations. Skapar en String_Array    --
-- med testdata och skapar sedan en partslista --
-- m.h.a. denna. Skriver ut listan för att     --
-- verifiera att delarna får rätt koordinater. --
-------------------------------------------------

procedure Test_Parts is

   Test_Array : String_Array;
   List : Part_List.List_Pointer;
begin
   -- 2 2x2x1 1110 2x2x2 11000101
   Test_Array(1) := To_Unbounded_String("2");
   Test_Array(2) := To_Unbounded_String("2x2x1");
   Test_Array(3) := To_Unbounded_String("1110");
   Test_Array(4) := To_Unbounded_String("2x2x2");
   Test_Array(5) := To_Unbounded_String("11000101");

   List := Create_Part_List(Test_Array);

   Part_List.Put(List);

end Test_Parts;

